home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Utility / CNIF_MacroMaker 1.4.sit / CNIF_MacroMaker 1.4 / CNIF_MM-Help.rsrc / TEXT_5048_CNM cb 1 11494.txt < prev    next >
Text File  |  1999-01-06  |  1KB  |  24 lines
  1.  -- #script
  2. global HMResName
  3. put word 3 of HMResName into n1
  4. put empty into m3
  5. if the visible of cd fld id 76 then
  6.   put "ﾃｬﾋ™,ﾃ･ﾃｩ,ﾃ｢ﾅ’,ﾃｪﾃ–,ﾃｱﾃｿ,ﾃ｣窶｡,ﾃｬy" into w
  7.   put (n1 div 7) + min(n1 mod 7,1) into n2
  8.   put n1 - 7 * (n2 - 1) into n3
  9.   put "ﾃｫﾃŠ" && n2 & (item n3 of w) & "ﾃｳjﾃｬﾋ™ ﾃ‡ï｣ｿﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃ‡ﾃεｫﾅ津ｨ竄ｬ" into m2
  10.  
  11.   if the hilite of cd btn id (n3 + 31) is false then
  12.     put return & item n3 of w & "ﾃｳjﾃｬﾋ™" & "ﾃ‡窶｡ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" into m3
  13.   end if
  14.   put "ﾃｫSﾃ‡ﾆ津‡ﾃεｳjﾃｬﾋ凖‡ﾃε荏ﾃ宇ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃ､Oﾃ‡竏妥‡竏†ﾃｬﾋ凖ｯtﾃｩwﾃｭﾃ凝嘉‡ﾃ…[ﾃ栄ﾃ‡窶ｦﾃ‡ﾂｻﾃ‡ﾃ凝‡窶ｹﾃ‡竏妥③" into m4
  15. else
  16.   put n1 & "ﾃｬﾋ™ ﾃ‡ï｣ｿﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃ‡ﾃεｫﾅ津ｨ竄ｬ" into m2
  17.   put "ﾃｳjﾃｬﾋ凖‡ï｣ｿﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ‡竏妥‡ﾃ暗‡竏†ﾃｳjﾃｬﾋ凖ｩwﾃｭﾃ凝嘉‡ﾃ…[ﾃ栄ﾃ‡窶ｦﾃ‡ﾂｻﾃ‡ﾃ凝‡窶ｹﾃ‡竏妥③" into m4
  18. end if
  19. put "ﾃｱﾃ ﾃ･ﾃｩ" into m1
  20. if the hilite of cd btn id 90 then put "ﾃ､ﾃ氾ｪﾃｮﾃ･ﾃｩ" into m1
  21. else if the hilite of cd btn id 91 then put "ﾃ｣ﾃ凖ｪﾃｮﾃ･ﾃｩ" into m1
  22. if the hilite of cd btn id n1 then put "ﾃ‡ﾂｩﾃ‡ﾃﾃ､Oﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" after m2
  23. else put "ﾃ‡窶ｦﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" after m2
  24. HMShowHelp "ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ‡竏妥‡ﾃ暗‡竏†" && m1 && m2 && m3 & return & return & m4